Avaliable Space:	C2/177D - C2/17C6

--- Dance command ---------------------|-----------------------------

**/****	set initial dance action as random

C2/177D	A9 FF		LDA #$FF
C2/177F	85 B7		STA $B7		

**/****	set dance

C2/1781	AE E2 11	LDX $11E2	
C2/1784	BF 5B 8E ED	LDA $ED8E5B,X	get corresponding dance
C2/1788	99 E1 32	STA $32E1,Y	save dance

**/****	????

C2/178B	4C 41 17	JMP $1741	multi-function routine for many commands
	

